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— file: ListCode.mesa 

-- edited by Sandman September 21, 1977 1:27 PM 

DIRECTORY 

AUoOefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
CommanderDef s: FROM "commanderdefs" , 
ControlDefs: FROM "controldefs", 
InlineOefs: FROM "in! inedef s" , 
lODefs: FROM "iodefs", 
ListerDefs: FROM "1 isterdef s" , 
Mopcodes: FROM "mopcodes", 
OutputDefs: FROM "outputdef s", 
SegmentDefs: FROM "segmentdef s" , 
StreamOefs: FROM "streamdef s" , 
StringDefs: FROM "stringdefs", 
SymDefs: FROM "symdefs", 
SymbolTableDefs: FROM "symboUabledefs" , 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM ListerDefs, OutputDefs; 

ListCode: PROGRAM 

IMPORTS CommanderDefs, ListerDefs, lODefs, OutputDefs, SegmentDefs, StreamOefs, 

StringDefs, SymbolTableDefs 
EXPORTS ListerDefs SHARES SymbolTableDefs « 
BEGIN 

Address: TYPE = AltoDefs .Address; 

BYTE: TYPE = Al toDef s . BYTE ; 

FileSegmentHandle: TYPE = SegmentDefs . FileSegmentHandle; 

FrameHandle: TYPE = ControlDefs . FrameHandle; 

NumberFormat : TYPE = lODefs . NumberFormat; 

opcode: TYPE = Mopcodes .opcode; 

PageCount: TYPE = Al toDef s. PageCount; 

WordPC: TYPE = Con trolDef s . WordPC; 



JumpOp: TYPE = [Mopcodes . zJnE . .Mopcodes . zJIW] ; 

InstWord: TYPE = MACHINE DEPENDENT RECORD[oddbyte , evenbyte: BYTE]; 

UNSIGNED: TYPE = WORD; 

offset: Address; 

codebase: POINTER; 

codepages: PageCount; 

symbols : SymbolTableDefs .SymbolTableBase; 

Tinst, Tbytes, Pinst. Pbytes, Bbytes: CARDINAL; 

freqing: BOOLEAN «- FALSE; 

absolute: BOOLEAN - FALSE; 

-- number formats 

decimal: NumberFormat = NumberFormat[base: 10 , columns:!, zerofil 1 : FALSE , unsigned: TRUE] ; 
decimal3: NumberFormat = NumberFormat[base : 10 , columns:3, zerof i 1 1 : FALSE , uns igned : TRUE] ; 
octal3: NumberFormat = NumberFormat[base:8 , columns:3, zerof il 1 : FALSE , uns igned : TRUE] ; 
octal3z: NumberFormat = NumberFormat[base : 8 , columns:3, zerof i 1 1 : TRUE , uns igned : TRUE] ; 
octal5: NumberFormat = NumberFormat[base:8 , columns:5, zerof il 1 : FALSE , uns igned :TRUE] ; 
octal6: NumberFormat = NumberFormat[base: 8 . columns:6, zerof i 1 1 : FALSE , uns igned : TRUE] ; 
octall: NumberFormat = NumberFormat[base:8 , columns:!, zerof il 1 : FALSE , uns igned :TRUE] ; 
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JItem: TYPE = RECORD [word: [0..7], byte: [0..1]]; 
JQuad: TYPE = RECORD [zero, one, two, three: JItem]; 



JTable 



: ARRAY 


[0..(LAST[JumpOp" 


|-FIRST[JumpOp]+i; 


)/4) OF JQuad = [ 




JIE 


J2E 


J3E 


J4E 


JIO 


J20 


J30 


J40 


CCi.o]. 


[2.0], 


[3.0], 


[4.0]]. 


[[1.1]. 


[2.1], 


[3.1]. 


[4.1]]. 


JBE 


JBO 


JWE 


JWO 


NJBE 


NJBO 






[[0.0], 


[0.1], 


[0.0], 


[0.1]]. 


[[0,0], 


[0.1]. 






JEQIE 


JEQ2E 


JEQ3E 


JEQ4E 


JEQIO 


JEQ20 


JEQ30 


JEQ40 


[1.0], 


[2.0]]. 


[[3.0], 


, [4.0], 


[1.1]. 


[2.1]]. 


[[3.1]. 


[4.1]. 


JEQBE 


JEQBO 














[0.0], 


[0.1]]. 














JNEIE 


JNE2E 


JNE3E 


JNE4E 


JNEIO 


JNE20 


JNE30 


JNE40 


[[1.0], 


[2.0], 


[3.0], 


[4.0]]. 


[[1.1]. 


[2.1]. 


[3.1]. 


[4.1]]. 


JNEBE 


JNEBO 














[[0.0], 


[0.1]. 














JLBE 


JLBO 


JGEBE 


JGEBO 


JGBE 


JGBO 


JLEBE 


JLEBO 


[0.0], 


[0.1]]. 


[[0.0]. 


> [0,1], 


[0.0], 


[0,1]]. 


[[0.0]. 


[0.1]. 


JULBE 


JULBO 


JUGEBE 


JUGEBO 


JUGBE 


JUGBO 


JULEBE 


JULEBO 


[0.0], 


[0.1]]. 


[[0,0], 


> [0.1], 


[0,0], 


[0,1]]. 


[[0.0], 


[0,1], 


JZEQBE 


JZEQBO 


JZNEBE 


JZNEBO 










[0.0], 


[0.1]]. 


[[0.0], 


[0,1]. 










JDEQBE 


JDEQBO 


JDNEBE 


JDNEBO 










[0,0], 


[0,1]]. 


[[0.0], 


> [0.1]. 










JIB 


JIW 














[0.0], 


[0.0]]]; 















GetJItem: PROCEDURE [op: opcode] RETURNS [JItem] « 
BEGIN 

i: CARDINAL = (op-FIRST[ Jump0p])/4: 
SELECT (op-FIRST[JumpOp]) MOD 4 FROM 

=> R£TURN[JTab1e[i].zero]; 

1 => RETURN[JTab1e[i].one]; 

2 => RETURN[JTable[i].two]; 

3 => RETURN[JTab1e[i]. three]: 
ENDCASE; 

END; 

Jword: PROCEDURE [op: opcode] RETURNS [[0..7]] = 
BEGIN 

RETURN[GetJItem[op] .word] 
END; 

Jbyte: PROCEDURE [op: opcode] RETURNS [[0..1]] = 
BEGIN 

RETURN[GetJItem[op].byte] 
END; 

framevec: ARRAY [0..18] OF CARDINAL = 

[7.11,15.19,23.27.31.39,47,55,67.79,95,111.127,147,171.199,231]; 
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-- generate list of opcodes 

OpcodeList: PROCEDURE [root: STRING] » 

BEGIN 

op: STRING; 

length: [0..3]; 

i: opcode; 

digit: STRING * "0123456789"; 

OpenOutput[root ," . 1 ist"] ; 

PutString["-- Mesa Opcodes 
— Format: name octal (decimal )push , pop, length 

"]J 

FOR i IN opcode DO 

op ♦• instname[i]; 

IF (length ♦- instlength[i]) « THEN op. length *• 0; 

PutString[op]; 

THROUGH (op. length.. 8] DO PutChar[' ] ENDLOOP; 

PutNumber[i ,octal3]; 

PutChar['(]; 

PutNumber[i , decimal 3]; 

PutChar[')]; 

PutChar[digit[pushstack[i]]] ; 

PutChar[ • , ]; PutChar[digitCpopstack[i ]]] ; 

PutChar[' ,]; PutChar[digit[length]] ; 

IF i MOD 4 = 3 THEN PutCR[] ELSE PutString["; "]; 

ENDLOOP; 
CloseOutput[] ; 
END; 
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-- source file procedures 

Sou rceSt ream: StreamDefs.StreamHandle; 
sourceavailable: BOOLEAN; 

printsource: PROCEDURE [index: SymDef s .Bytelndex] =» 
BEGIN 

OPEN symbols; 

j: SymOefs. Bytelndex; 

firstx. lastx: UNSIGNED; 

IF -sourceavailable THEN RETURN; 
firstx<-fgt[ index] . find ex; 
lastx*-LAST[UNSIGNED]; 
FOR j IN [O..LENGTH[fgt]) DO 
IF j#index THEN 

IP fgt[j],f^ndex <= lastx AND 
^9t[j].findex >« firstx THEN 
lastx *- fgt[j].f index; 
ENDLOOP; 
outcheck[f irstx, lastx]; 
END; 

outcheck: PROCEDURE [xfirst: UNSIGNED, xlast: UNSIGNED] = 
BEGIN OPEN StreamOefs; 

controlZ: CHARACTER = 32C; 

nextchar: CHARACTER; 

Se t I ndex [Sou rceSt ream, StreamIndex[0, xfirst]] ; 

WHILE xfirst j^ xlast DO 

IF SourceStream.endof[SourceStream] THEN RETURN; 
nextctiar ♦- SourceStream,get[SourceStream]; 
xfirst ♦- xfirst+1; 
IF nextchar = controlZ THEN 
WHILE nextchar ff lODefs.CR DO 

IF SourceStream.endof[SourceStream] THEN RETURN; 
nextchar ♦• SourceStream. get[SourceStream] ; 
xfirst ^ xfirst+1; 
ENDLOOP; 
PutChar[nextchar]; 
ENDLOOP; 
IF nextchar ^ lOOefs.CR THEN PutChar[IODef s .CR] ; 
END; 

setupsource: PROCEDURE = 
BEGIN OPEN SegmentDefs; 
sourceavai Table ♦• TRUE; 
SourceStream ♦• StreamOefs .CreateByteStream[ 

NewFile[ symbols .sourcef ile, Read,Def aultVersion 

! FileNameError => BEGIN sourceavai lable ♦• FALSE; CONTINUE END], Read]; 
END; 

closesource: PROCEDURE = 
BEGIN 

IF sourceavailable THEN SourceStream. destroy[SourceStream] 
END; 

PrintBodyName: PROCEDURE [bti: SymDef s . BTIndex] = 
BEGIN OPEN StringDefs, SymDefs, symbols; 
sei : ISEIndex; 
hti: HTIndex; 
ss: SubStr ingDescriptor ; 
i: CARDINAL: 

IF sourceavailable OR 

(sei ♦- (bb+bti) . id) = SENull OR 

(hti *- hashforse[sei]) = HTNull THEN RFTURN; 
SubStringrorHash[@ss , hti]; 

FOR i IN [ss.offset. .ss.offset+ss. length) DO PutChar[ss .base[ i]] ENDLOOP; 
PutChar[':]: PuLCR[]; 
END; 
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EvenUp: PROCEDURE [n: CARDINAL] RETURNS [CARDINAL] « 
-- Round up to an even number 
BEGIN 

RETURN[n+InlineDefs.BITAND[n,l]]; 
END; 

getbyte: PROCEDURE [pc: Address] RETURNS [b: BYTE] = 
-- pc is a byte address 
BEGIN OPEN InlineDefs; 
w: POINTER TO InstWord; 

IF absolute THEN 

BEGIN 

w*-L00PH0LECpc/2]; 

b^IF BITAND[pc,l] = THEN w.evenbyte ELSE w.oddbyte; 

END 
ELSE 

BEGIN 

w*-codebase+pc/2; 

b^IF BITAND[pc,l] = THEN w.evenbyte ELSE w.oddbyte: 

END; 
END; 

getword: PROCEDURE [pc: Address] RETURNS [WORD] = 
-- pc is a word address 
BEGIN 

IF absolute THEN RETURN [MEMORY[pc]]: 

RETURN[(codebase+pc)t]; 
END; 

jumpaddress: PROCEDURE [jop: opcode, arg: INTEGER] RETURNS [Address] 
BEGIN -- given a jump operator and its argument, return 

-- its target address 
OPEN Mopcodes; 
jword, jbyte: CARDINAL; 

IF jop = zNJBE OR jop = zNJBO THEN arg*— arg; 
IF jop = zJIB OR jop = zJIW THEN 

BEGIN 

IF arg < THEN BEGIN jbyte*-l; jword ♦• -arg END 

ELSE BEGIN jbyte ♦• 0; jword ^ arg END; 

END 
ELSE BEGIN jword ♦• Jword[jop] + arg; jbyte *- Jbyte[jop] END; 
RETURN [(offset/2 + jword)*2 + jbyte] 
END; 
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outwjtab: PROCEDURE [tabstart, tablength: INTEGER, octal: BOOLEAN] 
BEGIN 

w: INTEGER; 
pc: INTEGER; 

Pbytes<-Pbytes+tablength*2; 

FOR pc IN [tabstart. .tabstart+tablength) DO 

w*-getword[pc] ; 

PutCR[]; PutTab[]: PutTabC]; 

IF octal THEN BEGIN PutTab[]; PutTab[]; END; 

PutString[" ("]; 

PutNumber[jumpaddress[Mopcodes.2jIW,w] .octal 5]; 

PutChar[')]; 
ENDLOOP; 
END; 



outbjtab: PROCEDURE [tabstart, tablength: INTEGER, octal: BOOLEAN] =« 
BEGIN 
b: BYTE; 
pc: INTEGER; 

Pbytes*-Pbytes+EvenUp[ tab length]; 

FOR pc IN [tabstart*2. .tabstart*2+tablength) DO 

b*-getbyte[Inl ineDefs.BITXOR[pc,l]]; -- bytes "backwards" 

IF b >= 2008 THEN b ^ b + 1774G0B; -- sign extend 

PutCRCl; PutTabC]; PutTab[]; 

IF octal THEN BEGIN PutTab[]; PutTab[]; END; 

PutString[" ("]; 

PutNumber[ jumpaddress[Mopcodes.zJIB,b] .octal 5]; 

PutChar[')]; 
ENDLOOP: 
END; 
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printcode: PROCEDURE [startcode, endcode: Address, octal: BOOLEAN] « 
BEGIN -- list opcodes for indicated segment of code 
OPEN InlineDefs, Mopcodes; 
w: InstWord; 
inst,* byte: BYTE; 
lastconstant, v: INTEGER; 

FOR offset IN [startcode. .endcode) 00 
inst*-getbyte[of fset]; 
-- loginst[inst]; 
Pinst*-Pinst+1; 
PutTab[]; 
IF octal THEN 

BEGIN 

PutNumber[off set/2, octal 5]; 

PutString[(TF BITAND[off set . 1]«0 THEN ",E " ELSE ",0 ")]; 

END; 
PutNuniber[offset,octal5]; 
PutChar[' :]; 

IF octal THEN 
BEGIN 
PutTab[]; 

PutChar['[]; PutNumber[inst .octal3z]; PutChar[']]; 
END; 

PutTab[]; 

PutString[instname[inst3]; 

SELECT instlength[inst] FROM 

0,1=>BEGIN 

Pbytes*-Pbytes+1; 

IF inst IN [zLIO, .zLI6] THEN 

lastconstant*-inst-zLIO 
ELSE IF inst IN [FIRST[ JumpOp] . . LAST[JumpOp]] THEN 

BEGIN 

PutTab[]: PutStringC" ("]; 

PutNumber[jumpaddress[inst,0] , octal 1]; 

PutChar[')]; 

END; 
END; 

2=>BEGIN 

Pbytes*-Pbytes+2; 

byte*-getbyte[(offset*-offset+l)]; 

PutTab[]; 

Put Number [byte, octal 6] ; 

IF inst = zLIB THEN 1 as tconstant*-byte 

ELSE IF inst IN [FIRST[ JumpOp] .. LAST[ JumpOp]] THEN 

BEGIN 

PutString[" ("]; 

PutNumber[jumpaddress[ inst. byte], octal 1]; 

PutChar[')]: 

END; 
END; 

3=>BEGIN 

Pbytes*-Pbytes+3; 

w.oddbyte*-getbyte[(offset^offset+l)]: 
w. evenbyte*-getby te[(of rset*-of f set + 1 )] ; 
PutTab[]; 

SELECT inst FROM 
zRF, zWF, zWSF => 
BEGIN 

Pu t Number [w.oddbyt e , octal 6] ; 
PutSLring[", ["]; 

PutNumber[w. evenbyte/te, octal 1]; PutChar[' ,]; 
PutNumber[BTTAND[w.evenbyte.l7B] .octal I]; 
PuLChar[']]; 
END; 
FNDCASF => 
BEGIN 
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PutNumber[(v*-w.oddbyte*256+w.0V8nbyt0) .octal 6]; 
SELECT inst FROM 

zJIB=> outbjtab[v, 1 as tconst ant, octal]; 
zJIW=> outwjtab[v, las tconst ant, octal]; 
zLIWa> lastconstant*-v; 
IN [FIRST[JumpOp]. . LAST[JumpOp]]=> 
BEGIN 

PutString[" ("]; 

PutNumberf jumpaddress[inst, v] , octal 1]; 
PutChar[')]; 
END; 
ENDCASE; 
END; 

END; 
ENDCASE; 
PutCR[]; 
ENDLOOP; 
END; 
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BadBodyRecord: ERROR RETURNS [INTEGER]; 

listonebody: PROCEDURE [bti: SymOef s.BTIndex, octal: BOOLEAN] 
RETURNS [next: SymDef s.BTIndex] « 
BEGIN OPEN SymOefs, symbols; 
fgindex, fglast: CARDINAL; 

body: POINTER TO SymDef s.BodyRecord = bb+bti; 
cspp: POINTER TO ControlOef s .CsegPref ix = codebase; 

evi: POINTER TO ControlDefs . EntryVectorltem = Qcspp. EntryVector[body . entryindex] ; 
endchunk: Bytelndex; 
procstart: Address = evi . initialpc*2; 
procend: Address; 
info: external bodyinfo; 
fsize: INTEGER *- evi .f ramesize; 

Pinst ♦- Pbytes ♦• 0; 
next ♦• bti + 

(WITH body SELECT FROM 

inner => SIZE[inner BodyRecord], 

outer => SIZE[outer BodyRecord], 

ENDCASE => ERROR BadBodyRecord); 
IF fsize < ControlDefs. maxallocslot THEN fsize*-f ramevec[f size] 
ELSE 

BEGIN 

Pbytes*-Pbytes+2; 

fsize*-getword[procs tart/2-1]; 

END; 

PutCR[]; 

WITH iibody.info SELECT FROM 

external => info ^ i ; 
ENDCASE => ERROR; 
procend *- procstart + info. bytes; 
Bbytes *- info bytes; 
FOR fgindex IN [ info. startindex. . 

(fglast*- info, startindex+info.indexlength-l)] DO 
-- find end of this piece of code 
IF fgindex = fglast THEN endchunk ♦■ procend 
ELSE endchunk ♦• f gt[fgindex + l] .cindex ; 

printsource[fgindex]; 

IF fgindex = info. startindex THEN 

BEGIN 

PrintBodyName[bti]; 

IF octal THEN PutTab[]; 

PutString[" Frame size: "]; 

PutNumber[f size, decimal]; PutCR[]; 

END; 
printcode[fgt[fgindex] .cindex , endchunk, octal]; 
PutCR[]: 
ENDLOOP; 

IF octal THEN PutTab[]; 

PutString["Instruct ions : '*]; PutNumber[Pinst , decimal ] ; 
PutString[", Bytes: "]; PutNumber[Pbytes ♦• EvenUp[Pbytes] , decimal ] ; 
PutCR[]: PutCR[]; 

Tinst ♦- Tinst + Pinst; Tbytes ^ Tbytes + Pbytes; 
END; 
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IncorrectVersion: PUBLIC SIGNAL =» CODE; 
NoFGT: PUBLIC SIGNAL = CODE; 
NoCode: PUBLIC SIGNAL = CODE; 
NoSymbols: PUBLIC SIGNAL = CODE; 
version, creator: BcdDef s .VersionStamp; 

Load: PUBLIC PROCEDURE [bcdFile: STRING] RETURNS [codeseg, symbolseg: FileSegmentHandle] = 
BEGIN OPEN SegmentOefs; 
bcdseg: FileSegmentHandle; 
bed: POINTER TO BcdDefs.BCD; 
pages: AltoOef s .PageCount; 
codefile: FileHandle; 
sd: BcdDefs.SegDesc; 

codefile ♦■ NewFile[bcdFile, Read, DefaultVersion]; 

bcdseg ♦• NewFi leSegnient[codef ile, 1, 1, Read]; 

Swapln[bcdseg]; 

bed ♦• FileSegmentAddress[bcdseg]; 

IF (pages ^ bed.nPages) » 1 THEN BEGIN 

Un1ock[bcdseg]; 

MoveFileSegment[bcdseg, 1, pages]; 

Swapln[bedseg] ; 

bed ♦• FileSegmentAddress[bcdseg]; 

END; 
BEGIN 
ENABLE 

UNWIND => BEGIN Un1oek[bcdseg] ; DeleteFi 1eSegment[bcdseg] END; 
IF bcd.versionident # BcdDef s .VersionID THEN SIGNAL IncorrectVersion; 
IF bed. definitions OR bcd.nConfigs # OR bcd.nModules # 1 THEN SIGNAL NoCode; 
version ♦• bed. version; 
cpfifltop ♦" bed cp63top' 

sd ♦- (LOOPHOLE[bcd. CARDINAL]+bcd .mtOff set+FIRST[BcdDef s .MTIndex] ) . cseg; 
codeseg ^ NewFi 1eSegment[codef ile, sd.base, sd. pages, Read]; 
codeseg . cl ass ^ code; 

sd ^ (LOOPHOLE[bcd, CARDINAL]+bcd .mtOf f set+FIRST[BcdDef s .MTIndex] ) . sseg; 
IF sd. pages = THEN SIGNAL NoSymbols; 
IF sd.extraPages = THEN SIGNAL NoFGT; 

symbolseg ♦• NewFileSegment[codefile, sd.base, sd .pages+sd.extraPages , Read]; 
symbolseg . class ♦• symbols; 
END; 

Unlock[ bcdseg] ; Del eteFileSegment[ bcdseg] ; 
RETURN 
END; 

WriteFilelD: PUBLIC PROCEDURE [name: STRING] = 
BEGIN 

PutString[name] ; 
PutString[" compiled "]; 
PutTi me [vers ion .time]; 
PutString[" by "]; 
PutNumber[vers ion.net,octa13]; 
PutChar['3^]: 

PutNumber [vers ion . host , octal 3] ; 
PutChar['#]: 

IF version. zapped THEN PutString[" zapped! I I *•] ; 
PutCR[]; 

PutString[*' Creator "]; 
Pu tTime[ create r . t ime]: 
PutString[" "]; 

PutNumber [creator .net.octalS]; 
PuLChar['#]; 

PutNumber [creator .host, octal 3]; 
PutChar['i^]; 

IF creator .zapped THEN PutString[" zapped!!!"]; 
PutCR[]: PutCR[]; 
RETURN 
END; 
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ListFile: PROCEDURE [root: STRING, octal: BOOLEAN] « 
BEGIN OPEN StringDefs, SegmentDefs, symbols; 
i: CARDINAL; 

cseg.sseg: FileSegmentHandle; 
mintextindex: SymOefs.Bytelndex ♦• 77777B; 
bti: SymOefs.BTIndex; 
bcdFile: STRING ^ [40]; 

App8ndString[bcdFile,root]; 
FOR i IN [0. .root. length) DO 

IF root[i] = •. THEN EXIT; 

REPEAT FINISHED => AppendString[bcdFi 1e , " . bed"] ; 

ENDLOOP: 

[cseg,sseg]*-Load[bcdFile]; 

Swapln[cseg]; 

codebase ♦- FneSegm8ntAddress[cseg]; 

codepages ♦- cseg. pages; 

symbo1s«-Symbo1TableDefs.AcquireSymbolTable[ 

Symbol Tab leDefs. Tab leForSegment[sseg]]; 
setupsource[] ; 
OpenOutput[root,".cl"]; 
WriteFileID[bcdFile]; 
IF sourceavailable THEN 

BEGIN 

FOR i IN [O..LENGTH[fgt]) DO 

IF fgt[i].findex < mintextindex THEN 

mintextindex ^ f gt[i] . f index; 
ENDLOOP; 

IF mintextindex # THEN outcheck[0,mintextindex]; 

END; 

Tbytes<-Tinst*-0; 

bti ♦• LOOPHOLE[0]; 

UNTIL bti = L00PH0LE[stHandle.bodySi2e, SymOefs.BTIndex] 00 

bti «- 1 istonebody[bti , octal]; 

ENDLOOP; 

SymbolTableDef s. Re leaseSymbol Tab le[ symbols] ; 

DeleteFileSegment[sseg] : 

Unlock[cseg]: DeleteFileSegment[cseg]; 

closesource[] ; 

PutCR[]; IF octal THEN PutTab[]: 

PutString["Total instructions: "]; PutNumber[Tinst .decimal] ; 

PytString[", Bytes: "]; PutNumber[Tbytes, decimal ] ; 

PutCR[]; 

CloseOutput[]; 

END; 

LCode: PROCEDURE[name: STRING, octal: BOOLEAN] = 
BEGIN 
Li stFile[ name, octal 

INoCode.NoFGT.NoSymbols, IncorrectVersion => 

BEGIN IODefs.WriteString["Bad format"]; CONTINUE END; 
SegmentDefs , F ileNameError => 

BEGIN IODefs.WriteString["File not found"]; CONTINUE END 

END; 

Code: PROCEDURE[name: STRING] = 
BEGIN 

LCode[name, FALSE]; 
END; 

OctalCode: PROCCDURF[name: STRING] = 
BEGIN 

LCodG[name.TRUE]: 
END; 

command : CommanderDef s . CommandBl ockHandl e; 

command *- Command erDefs . AddCommand["OpcodeLis L" .LOOPIIOI r[OpcodeLisl],t]; 
command . params[0] ♦- [type: string, prompt: "Filename"]; 

command ^ CommanderDef s . AddCommand["Oc tal Code" . LOOPHOl E [Octal Code] , 1]; 
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command. par ams[0] ♦- [type: string, prompt: "Filename"]; 

command ♦• CommanderDef s.AddCommand["Code",LOOPHOLE[Code], 1]; 
command. params[0] ^ [type: string, prompt: "Filename"]; 

END. of listcode 



